\ ENHANCED DATA
variable _state
: data[] ( -- addr #cells )
  r@ 2+  r@ @ dup cells  2+ r> + >r ;
 
: data[ ( -- here )
  state @ _state !  state 0!  1 $A068 !
  _state @ if compile data[] here 0 , else here then 
; immediate
 
: ]data  ( here -- )
  dup here swap - 2/ 1-  _state @ if swap ! else 1- then
  $A068 0!  _state @ state !
; immediate

cr .( Enhanced DATA loaded.) 
\ Usage: DATA[ a b c d... ]DATA )
\ Where a, b, c, & d are integers. 
\ At runtime, the beginning address of the data and
\ number of cells is pushed to the stack.
\ May be used in colon definitions or at the command line.


